<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
<meta http-equiv="X-UA-Compatible" content="IE=9"/>
<title>hsm-statechart: hsm/hula/hula.c Source File</title>
<link href="tabs.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="dynsections.js"></script>
<link href="navtree.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="resize.js"></script>
<script type="text/javascript" src="navtree.js"></script>
<script type="text/javascript">
  $(document).ready(initResizable);
</script>
<link href="search/search.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="search/search.js"></script>
<script type="text/javascript">
  $(document).ready(function() { searchBox.OnSelectItem(0); });
</script>
<link href="doxygen.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="top"><!-- do not remove this div, it is closed by doxygen! -->
<div id="titlearea">
<table cellspacing="0" cellpadding="0">
 <tbody>
 <tr style="height: 56px;">
  <td id="projectlogo"><img alt="Logo" src="hsm-statechart.png"/></td>
  <td style="padding-left: 0.5em;">
   <div id="projectname">hsm-statechart
   &#160;<span id="projectnumber">0.5</span>
   </div>
   <div id="projectbrief">An easy to use hierarchical state machine for C and C++</div>
  </td>
 </tr>
 </tbody>
</table>
</div>
<!-- end header part -->
<!-- Generated by Doxygen 1.8.1.1 -->
<script type="text/javascript">
var searchBox = new SearchBox("searchBox", "search",false,'Search');
</script>
  <div id="navrow1" class="tabs">
    <ul class="tablist">
      <li><a href="index.html"><span>Main&#160;Page</span></a></li>
      <li><a href="pages.html"><span>Related&#160;Pages</span></a></li>
      <li><a href="annotated.html"><span>Data&#160;Structures</span></a></li>
      <li class="current"><a href="files.html"><span>Files</span></a></li>
      <li>
        <div id="MSearchBox" class="MSearchBoxInactive">
        <span class="left">
          <img id="MSearchSelect" src="search/mag_sel.png"
               onmouseover="return searchBox.OnSearchSelectShow()"
               onmouseout="return searchBox.OnSearchSelectHide()"
               alt=""/>
          <input type="text" id="MSearchField" value="Search" accesskey="S"
               onfocus="searchBox.OnSearchFieldFocus(true)" 
               onblur="searchBox.OnSearchFieldFocus(false)" 
               onkeyup="searchBox.OnSearchFieldChange(event)"/>
          </span><span class="right">
            <a id="MSearchClose" href="javascript:searchBox.CloseResultsWindow()"><img id="MSearchCloseImg" border="0" src="search/close.png" alt=""/></a>
          </span>
        </div>
      </li>
    </ul>
  </div>
  <div id="navrow2" class="tabs2">
    <ul class="tablist">
      <li><a href="files.html"><span>File&#160;List</span></a></li>
      <li><a href="globals.html"><span>Globals</span></a></li>
    </ul>
  </div>
</div><!-- top -->
<div id="side-nav" class="ui-resizable side-nav-resizable">
  <div id="nav-tree">
    <div id="nav-tree-contents">
    </div>
  </div>
  <div id="splitbar" style="-moz-user-select:none;" 
       class="ui-resizable-handle">
  </div>
</div>
<script type="text/javascript">
$(document).ready(function(){initNavTree('hula_8c.html','');});
</script>
<div id="doc-content">
<!-- window showing the filter options -->
<div id="MSearchSelectWindow"
     onmouseover="return searchBox.OnSearchSelectShow()"
     onmouseout="return searchBox.OnSearchSelectHide()"
     onkeydown="return searchBox.OnSearchSelectKey(event)">
<a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(0)"><span class="SelectionMark">&#160;</span>All</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(1)"><span class="SelectionMark">&#160;</span>Data Structures</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(2)"><span class="SelectionMark">&#160;</span>Files</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(3)"><span class="SelectionMark">&#160;</span>Functions</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(4)"><span class="SelectionMark">&#160;</span>Variables</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(5)"><span class="SelectionMark">&#160;</span>Typedefs</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(6)"><span class="SelectionMark">&#160;</span>Enumerations</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(7)"><span class="SelectionMark">&#160;</span>Macros</a><a class="SelectItem" href="javascript:void(0)" onclick="searchBox.OnSelectItem(8)"><span class="SelectionMark">&#160;</span>Pages</a></div>

<!-- iframe showing the search results (closed by default) -->
<div id="MSearchResultsWindow">
<iframe src="javascript:void(0)" frameborder="0" 
        name="MSearchResults" id="MSearchResults">
</iframe>
</div>

<div class="header">
  <div class="headertitle">
<div class="title">hula.c</div>  </div>
</div><!--header-->
<div class="contents">
<a href="hula_8c.html">Go to the documentation of this file.</a><div class="fragment"><div class="line"><a name="l00001"></a><span class="lineno">    1</span>&#160;</div>
<div class="line"><a name="l00011"></a><span class="lineno">   11</span>&#160;<span class="preprocessor">#include &lt;<a class="code" href="hsm__machine_8h.html" title="Statemachine structures and functions.">hsm/hsm_machine.h</a>&gt;</span></div>
<div class="line"><a name="l00012"></a><span class="lineno">   12</span>&#160;<span class="preprocessor">#include &lt;lua.h&gt;</span></div>
<div class="line"><a name="l00013"></a><span class="lineno">   13</span>&#160;<span class="preprocessor">#include &lt;lauxlib.h&gt;</span></div>
<div class="line"><a name="l00014"></a><span class="lineno">   14</span>&#160;</div>
<div class="line"><a name="l00015"></a><span class="lineno">   15</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="hula_8h.html" title="Statemachine builder extensions for lua.">hula.h</a>&quot;</span></div>
<div class="line"><a name="l00016"></a><span class="lineno">   16</span>&#160;<span class="preprocessor">#include &quot;<a class="code" href="hula__lib_8h.html" title="Implements lua wrappers for using hsm_machine in lua.">hula_lib.h</a>&quot;</span></div>
<div class="line"><a name="l00017"></a><span class="lineno">   17</span>&#160;<span class="preprocessor">#include &quot;hula_types.h&quot;</span></div>
<div class="line"><a name="l00018"></a><span class="lineno">   18</span>&#160;<span class="preprocessor">#include &lt;<a class="code" href="hsm__builder_8h.html" title="Declarative interface for defining states.">hsm/builder/hsm_builder.h</a>&gt;</span></div>
<div class="line"><a name="l00019"></a><span class="lineno">   19</span>&#160;</div>
<div class="line"><a name="l00020"></a><span class="lineno">   20</span>&#160;<span class="preprocessor">#include &lt;assert.h&gt;</span></div>
<div class="line"><a name="l00021"></a><span class="lineno">   21</span>&#160;<span class="preprocessor">#include &lt;string.h&gt;</span></div>
<div class="line"><a name="l00022"></a><span class="lineno">   22</span>&#160;</div>
<div class="line"><a name="l00023"></a><span class="lineno">   23</span>&#160;<span class="comment">// invalid arg passed to function</span></div>
<div class="line"><a name="l00024"></a><span class="lineno">   24</span>&#160;<span class="keyword">const</span> <span class="keywordtype">char</span> * HULA_ERR_ARG= <span class="stringliteral">&quot;HULA_ERR_ARG&quot;</span>; </div>
<div class="line"><a name="l00025"></a><span class="lineno">   25</span>&#160;<span class="comment">// keys should be strings</span></div>
<div class="line"><a name="l00026"></a><span class="lineno">   26</span>&#160;<span class="keyword">const</span> <span class="keywordtype">char</span> * HULA_ERR_UNEXPECTED_KEY= <span class="stringliteral">&quot;HULA_ERR_UNEXPECTED_KEY&quot;</span>; </div>
<div class="line"><a name="l00027"></a><span class="lineno">   27</span>&#160;<span class="comment">// values should be strings, tables, or functions</span></div>
<div class="line"><a name="l00028"></a><span class="lineno">   28</span>&#160;<span class="keyword">const</span> <span class="keywordtype">char</span> * HULA_ERR_UNEXPECTED_VALUE= <span class="stringliteral">&quot;HULA_ERR_UNEXPECTED_VALUE&quot;</span>; </div>
<div class="line"><a name="l00029"></a><span class="lineno">   29</span>&#160;</div>
<div class="line"><a name="l00030"></a><span class="lineno">   30</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00031"></a><span class="lineno">   31</span>&#160;<span class="comment">// Lua helpers </span></div>
<div class="line"><a name="l00032"></a><span class="lineno">   32</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00033"></a><span class="lineno">   33</span>&#160;<span class="keyword">typedef</span> <span class="keyword">struct </span>nstring_rec nstring_t;</div>
<div class="line"><a name="l00034"></a><span class="lineno">   34</span>&#160;</div>
<div class="line"><a name="l00039"></a><span class="lineno">   39</span>&#160;<span class="keyword">struct </span>nstring_rec </div>
<div class="line"><a name="l00040"></a><span class="lineno">   40</span>&#160;{</div>
<div class="line"><a name="l00041"></a><span class="lineno">   41</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">char</span> * string;</div>
<div class="line"><a name="l00042"></a><span class="lineno">   42</span>&#160;  <span class="keywordtype">size_t</span> len;</div>
<div class="line"><a name="l00043"></a><span class="lineno">   43</span>&#160;};</div>
<div class="line"><a name="l00044"></a><span class="lineno">   44</span>&#160;</div>
<div class="line"><a name="l00045"></a><span class="lineno">   45</span>&#160;<span class="preprocessor">#define NSTRING(l) ((l).string &amp;&amp; (l).len)</span></div>
<div class="line"><a name="l00046"></a><span class="lineno">   46</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define NSTRING_IS(l, s) (strcmp((l).string,s)==0)</span></div>
<div class="line"><a name="l00047"></a><span class="lineno">   47</span>&#160;<span class="preprocessor"></span></div>
<div class="line"><a name="l00048"></a><span class="lineno">   48</span>&#160;<span class="preprocessor">#define lua_tonstring( L, idx, nstring ) (nstring)-&gt;string= lua_tolstring( L, idx, &amp;((nstring)-&gt;len) )</span></div>
<div class="line"><a name="l00049"></a><span class="lineno">   49</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define lua_pushnstring( L, nstring ) lua_pushlstring( L, (nstring).string, (nstring).len )</span></div>
<div class="line"><a name="l00050"></a><span class="lineno">   50</span>&#160;<span class="preprocessor"></span></div>
<div class="line"><a name="l00065"></a><span class="lineno">   65</span>&#160;<span class="keywordtype">int</span> lua_unpack_and_pcall( lua_State * L, <span class="keywordtype">int</span> rawcall, <span class="keywordtype">int</span> table, <span class="keywordtype">int</span> element, <span class="keywordtype">int</span> count )</div>
<div class="line"><a name="l00066"></a><span class="lineno">   66</span>&#160;{</div>
<div class="line"><a name="l00067"></a><span class="lineno">   67</span>&#160;  <span class="comment">// yes, technically, we should have an event table</span></div>
<div class="line"><a name="l00068"></a><span class="lineno">   68</span>&#160;  <span class="comment">// in the startup case though, it&#39;s convienent to keep things simple and pass nothing at all.</span></div>
<div class="line"><a name="l00069"></a><span class="lineno">   69</span>&#160;  <span class="keywordflow">if</span> (lua_istable(L, table)) {</div>
<div class="line"><a name="l00070"></a><span class="lineno">   70</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">int</span> len= lua_objlen( L, table );</div>
<div class="line"><a name="l00071"></a><span class="lineno">   71</span>&#160;    <span class="keywordflow">for</span> (element; element&lt;=len; ++element, ++count) {</div>
<div class="line"><a name="l00072"></a><span class="lineno">   72</span>&#160;      lua_rawgeti( L, table, element );</div>
<div class="line"><a name="l00073"></a><span class="lineno">   73</span>&#160;    }</div>
<div class="line"><a name="l00074"></a><span class="lineno">   74</span>&#160;    lua_pushvalue( L, table );</div>
<div class="line"><a name="l00075"></a><span class="lineno">   75</span>&#160;    ++count;</div>
<div class="line"><a name="l00076"></a><span class="lineno">   76</span>&#160;  }</div>
<div class="line"><a name="l00077"></a><span class="lineno">   77</span>&#160;  <span class="keywordflow">return</span> rawcall ? lua_call(L, count, 1), 0 : lua_pcall(L, count, 1,0); </div>
<div class="line"><a name="l00078"></a><span class="lineno">   78</span>&#160;}</div>
<div class="line"><a name="l00079"></a><span class="lineno">   79</span>&#160;</div>
<div class="line"><a name="l00080"></a><span class="lineno">   80</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00081"></a><span class="lineno">   81</span>&#160;<span class="comment">// State Tables</span></div>
<div class="line"><a name="l00082"></a><span class="lineno">   82</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00083"></a><span class="lineno">   83</span>&#160;</div>
<div class="line"><a name="l00090"></a><span class="lineno">   90</span>&#160;<span class="comment">// raw entries on the state table</span></div>
<div class="line"><a name="l00091"></a><span class="lineno">   91</span>&#160;<span class="preprocessor">#define LUA_T_ENTER 0</span></div>
<div class="line"><a name="l00092"></a><span class="lineno">   92</span>&#160;<span class="preprocessor"></span><span class="preprocessor">#define LUA_T_EXIT  1</span></div>
<div class="line"><a name="l00093"></a><span class="lineno">   93</span>&#160;<span class="preprocessor"></span></div>
<div class="line"><a name="l00099"></a><span class="lineno">   99</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> HulaGetStateTables( lua_State * L )</div>
<div class="line"><a name="l00100"></a><span class="lineno">  100</span>&#160;{</div>
<div class="line"><a name="l00101"></a><span class="lineno">  101</span>&#160;  <span class="keyword">static</span> <span class="keywordtype">int</span> tablespot=0;</div>
<div class="line"><a name="l00102"></a><span class="lineno">  102</span>&#160;  lua_pushlightuserdata( L, &amp;tablespot );  <span class="comment">// unique spot for tables in the registry</span></div>
<div class="line"><a name="l00103"></a><span class="lineno">  103</span>&#160;  lua_gettable( L, LUA_REGISTRYINDEX );  <span class="comment">// pull registry[tablespot]</span></div>
<div class="line"><a name="l00104"></a><span class="lineno">  104</span>&#160;</div>
<div class="line"><a name="l00105"></a><span class="lineno">  105</span>&#160;  <span class="comment">// is this the first time we&#39;re using registry[tablespot]?</span></div>
<div class="line"><a name="l00106"></a><span class="lineno">  106</span>&#160;  <span class="keywordflow">if</span> (lua_isnil( L, -1 )) {</div>
<div class="line"><a name="l00107"></a><span class="lineno">  107</span>&#160;    lua_pop(L,1);</div>
<div class="line"><a name="l00108"></a><span class="lineno">  108</span>&#160;    <span class="comment">// create a new table</span></div>
<div class="line"><a name="l00109"></a><span class="lineno">  109</span>&#160;    lua_pushlightuserdata( L, &amp;tablespot );   <span class="comment">// key,</span></div>
<div class="line"><a name="l00110"></a><span class="lineno">  110</span>&#160;    lua_newtable( L );            <span class="comment">// value,</span></div>
<div class="line"><a name="l00111"></a><span class="lineno">  111</span>&#160;    <span class="comment">// store it in the registry</span></div>
<div class="line"><a name="l00112"></a><span class="lineno">  112</span>&#160;    lua_settable( L, LUA_REGISTRYINDEX );   <span class="comment">// registry[key]=value</span></div>
<div class="line"><a name="l00113"></a><span class="lineno">  113</span>&#160;    <span class="comment">// pull it back from the registry</span></div>
<div class="line"><a name="l00114"></a><span class="lineno">  114</span>&#160;    lua_pushlightuserdata( L, &amp;tablespot ); </div>
<div class="line"><a name="l00115"></a><span class="lineno">  115</span>&#160;    lua_gettable( L, LUA_REGISTRYINDEX );</div>
<div class="line"><a name="l00116"></a><span class="lineno">  116</span>&#160;  }</div>
<div class="line"><a name="l00117"></a><span class="lineno">  117</span>&#160;</div>
<div class="line"><a name="l00118"></a><span class="lineno">  118</span>&#160;  <span class="keywordflow">return</span> lua_gettop( L );</div>
<div class="line"><a name="l00119"></a><span class="lineno">  119</span>&#160;}</div>
<div class="line"><a name="l00120"></a><span class="lineno">  120</span>&#160;</div>
<div class="line"><a name="l00127"></a><span class="lineno">  127</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> HulaGetStateTable( lua_State * L, <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> state )</div>
<div class="line"><a name="l00128"></a><span class="lineno">  128</span>&#160;{</div>
<div class="line"><a name="l00129"></a><span class="lineno">  129</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> tables= HulaGetStateTables( L ); <span class="comment">// pull tables onto the stack</span></div>
<div class="line"><a name="l00130"></a><span class="lineno">  130</span>&#160;  lua_getfield( L, tables, state-&gt;<a class="code" href="hsm__state_8h.html#a8f8f80d37794cde9472343e4487ba3eb" title="name of the state ( useful for debugging )">name</a> );  <span class="comment">// get tables[ state-&gt;name ]</span></div>
<div class="line"><a name="l00131"></a><span class="lineno">  131</span>&#160;  lua_remove( L, tables );           <span class="comment">// remove the tables</span></div>
<div class="line"><a name="l00132"></a><span class="lineno">  132</span>&#160;  <span class="keywordflow">return</span> lua_gettop(L);            <span class="comment">// return statetable</span></div>
<div class="line"><a name="l00133"></a><span class="lineno">  133</span>&#160;}</div>
<div class="line"><a name="l00134"></a><span class="lineno">  134</span>&#160;</div>
<div class="line"><a name="l00140"></a><span class="lineno">  140</span>&#160;<span class="keyword">static</span> <span class="keywordtype">int</span> HulaCreateStateTable( lua_State * L, nstring_t statename )</div>
<div class="line"><a name="l00141"></a><span class="lineno">  141</span>&#160;{</div>
<div class="line"><a name="l00142"></a><span class="lineno">  142</span>&#160;  <span class="keywordtype">int</span> res;</div>
<div class="line"><a name="l00143"></a><span class="lineno">  143</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> check= lua_gettop(L);</div>
<div class="line"><a name="l00144"></a><span class="lineno">  144</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> tables= HulaGetStateTables( L );  <span class="comment">// pull tables onto the stack</span></div>
<div class="line"><a name="l00145"></a><span class="lineno">  145</span>&#160;  lua_pushnstring( L, statename );      <span class="comment">// key=statename</span></div>
<div class="line"><a name="l00146"></a><span class="lineno">  146</span>&#160;  lua_createtable(L, 0,1);          <span class="comment">// value={}</span></div>
<div class="line"><a name="l00147"></a><span class="lineno">  147</span>&#160;  lua_settable( L, tables );          <span class="comment">// tables[key]=value</span></div>
<div class="line"><a name="l00148"></a><span class="lineno">  148</span>&#160;  lua_getfield( L, tables, statename.string );<span class="comment">// pull the value{} back</span></div>
<div class="line"><a name="l00149"></a><span class="lineno">  149</span>&#160;  lua_remove( L, tables );          <span class="comment">// remove the tables</span></div>
<div class="line"><a name="l00150"></a><span class="lineno">  150</span>&#160;  res= lua_gettop(L);             <span class="comment">// what remains is our value{}</span></div>
<div class="line"><a name="l00151"></a><span class="lineno">  151</span>&#160;  <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( res == check+1 );</div>
<div class="line"><a name="l00152"></a><span class="lineno">  152</span>&#160;  <span class="keywordflow">return</span> res;</div>
<div class="line"><a name="l00153"></a><span class="lineno">  153</span>&#160;}</div>
<div class="line"><a name="l00154"></a><span class="lineno">  154</span>&#160;</div>
<div class="line"><a name="l00168"></a><span class="lineno">  168</span>&#160;<span class="keywordtype">int</span> HulaGetEvent( lua_State* L, <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> state, <span class="keywordtype">int</span> rawi, <span class="keyword">const</span> <span class="keywordtype">char</span> * eventname )</div>
<div class="line"><a name="l00169"></a><span class="lineno">  169</span>&#160;{</div>
<div class="line"><a name="l00170"></a><span class="lineno">  170</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> state_table= HulaGetStateTable( L, state );</div>
<div class="line"><a name="l00171"></a><span class="lineno">  171</span>&#160;  <span class="keywordflow">if</span> (!eventname) {</div>
<div class="line"><a name="l00172"></a><span class="lineno">  172</span>&#160;    lua_rawgeti( L, state_table, rawi ); </div>
<div class="line"><a name="l00173"></a><span class="lineno">  173</span>&#160;  }</div>
<div class="line"><a name="l00174"></a><span class="lineno">  174</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00175"></a><span class="lineno">  175</span>&#160;    lua_pushstring( L, eventname );</div>
<div class="line"><a name="l00176"></a><span class="lineno">  176</span>&#160;    lua_gettable( L, state_table );</div>
<div class="line"><a name="l00177"></a><span class="lineno">  177</span>&#160;  }</div>
<div class="line"><a name="l00178"></a><span class="lineno">  178</span>&#160;  lua_remove( L,state_table );</div>
<div class="line"><a name="l00179"></a><span class="lineno">  179</span>&#160;  <span class="keywordflow">return</span> lua_gettop( L );</div>
<div class="line"><a name="l00180"></a><span class="lineno">  180</span>&#160;}</div>
<div class="line"><a name="l00181"></a><span class="lineno">  181</span>&#160;</div>
<div class="line"><a name="l00187"></a><span class="lineno">  187</span>&#160;<span class="keyword">static</span> <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> HulaGetIsEvent( lua_State * L )</div>
<div class="line"><a name="l00188"></a><span class="lineno">  188</span>&#160;{</div>
<div class="line"><a name="l00189"></a><span class="lineno">  189</span>&#160;  <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> cb= NULL;</div>
<div class="line"><a name="l00190"></a><span class="lineno">  190</span>&#160;  luaL_getmetatable( L, <a class="code" href="hula__lib_8h.html#a363ecc475d7d1922b88ca2a18d912849" title="default name of the HULA_LIB&#39;s metatable">HULA_METATABLE</a> );</div>
<div class="line"><a name="l00191"></a><span class="lineno">  191</span>&#160;  <span class="comment">// the metatable may not exist if the user is declaring states in lua, </span></div>
<div class="line"><a name="l00192"></a><span class="lineno">  192</span>&#160;  <span class="comment">// but managing the statemachine in C ( ie. has no need to call HulaRegister )</span></div>
<div class="line"><a name="l00193"></a><span class="lineno">  193</span>&#160;  <span class="keywordflow">if</span>  (!lua_istable(L, -1)) {</div>
<div class="line"><a name="l00194"></a><span class="lineno">  194</span>&#160;    lua_pop(L, 1);</div>
<div class="line"><a name="l00195"></a><span class="lineno">  195</span>&#160;  }</div>
<div class="line"><a name="l00196"></a><span class="lineno">  196</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00197"></a><span class="lineno">  197</span>&#160;    lua_getfield(L,-1, <a class="code" href="hula__lib_8h.html#a807b7f094e7f3a6092e03611b081f209" title="name inside the metatable of the user event matching function">HULA_EVENT_TEST</a> );</div>
<div class="line"><a name="l00198"></a><span class="lineno">  198</span>&#160;    <span class="keywordflow">if</span> (!lua_isnil( L, -1)) {</div>
<div class="line"><a name="l00199"></a><span class="lineno">  199</span>&#160;      <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> store= (<a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a>) lua_touserdata( L,-1 );</div>
<div class="line"><a name="l00200"></a><span class="lineno">  200</span>&#160;      <span class="keywordflow">if</span> (store) {</div>
<div class="line"><a name="l00201"></a><span class="lineno">  201</span>&#160;        cb= store;</div>
<div class="line"><a name="l00202"></a><span class="lineno">  202</span>&#160;      }</div>
<div class="line"><a name="l00203"></a><span class="lineno">  203</span>&#160;    }      </div>
<div class="line"><a name="l00204"></a><span class="lineno">  204</span>&#160;    lua_pop(L, 2);</div>
<div class="line"><a name="l00205"></a><span class="lineno">  205</span>&#160;  }</div>
<div class="line"><a name="l00206"></a><span class="lineno">  206</span>&#160;  <span class="keywordflow">return</span> cb;</div>
<div class="line"><a name="l00207"></a><span class="lineno">  207</span>&#160;}</div>
<div class="line"><a name="l00208"></a><span class="lineno">  208</span>&#160;</div>
<div class="line"><a name="l00209"></a><span class="lineno">  209</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00210"></a><span class="lineno">  210</span>&#160;<span class="comment">// Run time callbacks:</span></div>
<div class="line"><a name="l00211"></a><span class="lineno">  211</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00212"></a><span class="lineno">  212</span>&#160;</div>
<div class="line"><a name="l00213"></a><span class="lineno">  213</span>&#160;<span class="keyword">static</span> <a class="code" href="hsm__context_8h.html#structhsm__context__rec" title="A per state instance context object.">hsm_context</a> HulaEnterUD( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status, <span class="keywordtype">void</span> * user_data );</div>
<div class="line"><a name="l00214"></a><span class="lineno">  214</span>&#160;<span class="keyword">static</span> <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> HulaRunUD( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status, <span class="keywordtype">void</span> * user_data );</div>
<div class="line"><a name="l00215"></a><span class="lineno">  215</span>&#160;<span class="keyword">static</span> <span class="keywordtype">void</span> HulaExit( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status );</div>
<div class="line"><a name="l00216"></a><span class="lineno">  216</span>&#160;</div>
<div class="line"><a name="l00217"></a><span class="lineno">  217</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00222"></a><span class="lineno">  222</span>&#160;<span class="comment"></span><span class="keyword">static</span> hula_context_t * HulaCreateContext( lua_State *L, <span class="keywordtype">int</span> index )</div>
<div class="line"><a name="l00223"></a><span class="lineno">  223</span>&#160;{</div>
<div class="line"><a name="l00224"></a><span class="lineno">  224</span>&#160;  hula_context_t * new_ctx= (hula_context_t*) <a class="code" href="hsm__context_8c.html#a37882939881b43db4f51a7cc24544f11" title="Helper to create a new context object.">HsmContextAlloc</a>( <span class="keyword">sizeof</span>(hula_context_t) );</div>
<div class="line"><a name="l00225"></a><span class="lineno">  225</span>&#160;  <span class="keywordflow">if</span> (!new_ctx) {</div>
<div class="line"><a name="l00226"></a><span class="lineno">  226</span>&#160;    lua_pop(L,1);</div>
<div class="line"><a name="l00227"></a><span class="lineno">  227</span>&#160;  }</div>
<div class="line"><a name="l00228"></a><span class="lineno">  228</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00229"></a><span class="lineno">  229</span>&#160;    new_ctx-&gt;L= L;      </div>
<div class="line"><a name="l00230"></a><span class="lineno">  230</span>&#160;    new_ctx-&gt;lua_ref= luaL_ref( L, LUA_REGISTRYINDEX ); </div>
<div class="line"><a name="l00231"></a><span class="lineno">  231</span>&#160;  }</div>
<div class="line"><a name="l00232"></a><span class="lineno">  232</span>&#160;  <span class="keywordflow">return</span> new_ctx;</div>
<div class="line"><a name="l00233"></a><span class="lineno">  233</span>&#160;}  </div>
<div class="line"><a name="l00234"></a><span class="lineno">  234</span>&#160;</div>
<div class="line"><a name="l00235"></a><span class="lineno">  235</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00248"></a><span class="lineno">  248</span>&#160;<span class="comment"></span><span class="keyword">static</span> <a class="code" href="hsm__context_8h.html#structhsm__context__rec" title="A per state instance context object.">hsm_context</a> HulaEnterUD( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status, <span class="keywordtype">void</span> * user_data )</div>
<div class="line"><a name="l00249"></a><span class="lineno">  249</span>&#160;{</div>
<div class="line"><a name="l00250"></a><span class="lineno">  250</span>&#160;  hula_context_t* new_ctx=0, *parent_ctx=0;</div>
<div class="line"><a name="l00251"></a><span class="lineno">  251</span>&#160;  lua_State* L= (lua_State*)user_data;</div>
<div class="line"><a name="l00252"></a><span class="lineno">  252</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> event_table= lua_gettop(L);</div>
<div class="line"><a name="l00253"></a><span class="lineno">  253</span>&#160;</div>
<div class="line"><a name="l00254"></a><span class="lineno">  254</span>&#160;  <span class="comment">// get the lua specified enter= function()</span></div>
<div class="line"><a name="l00255"></a><span class="lineno">  255</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> lua_entryfn= HulaGetEvent( L, status-&gt;state, LUA_T_ENTER, 0 );</div>
<div class="line"><a name="l00256"></a><span class="lineno">  256</span>&#160;  </div>
<div class="line"><a name="l00257"></a><span class="lineno">  257</span>&#160;  <span class="comment">// get our parent&#39;s hula_context_t via ugly magic.</span></div>
<div class="line"><a name="l00258"></a><span class="lineno">  258</span>&#160;  <span class="comment">// this allows us to pass our lua state, and context data to descendents</span></div>
<div class="line"><a name="l00259"></a><span class="lineno">  259</span>&#160;  <span class="comment">// maybe there&#39;s a better way.....</span></div>
<div class="line"><a name="l00260"></a><span class="lineno">  260</span>&#160;  <span class="keywordflow">if</span> (!status-&gt;state-&gt;<a class="code" href="hsm__state_8h.html#aa4980a3eab7184813f0cd0a98a201fcb" title="parent of this state">parent</a>) {</div>
<div class="line"><a name="l00261"></a><span class="lineno">  261</span>&#160;    <span class="keywordflow">if</span> (status-&gt;hsm-&gt;<a class="code" href="hsm__machine_8h.html#ae2338fb3d7fccbba312f3151d75cef88" title="Per state machine flags.">flags</a> &amp; HSM_FLAGS_HULA) {</div>
<div class="line"><a name="l00262"></a><span class="lineno">  262</span>&#160;      hula_machine_t* parent= (hula_machine_t*) status-&gt;hsm;</div>
<div class="line"><a name="l00263"></a><span class="lineno">  263</span>&#160;      parent_ctx= &amp;parent-&gt;ctx;</div>
<div class="line"><a name="l00264"></a><span class="lineno">  264</span>&#160;    }</div>
<div class="line"><a name="l00265"></a><span class="lineno">  265</span>&#160;  }</div>
<div class="line"><a name="l00266"></a><span class="lineno">  266</span>&#160;  <span class="keywordflow">else</span></div>
<div class="line"><a name="l00267"></a><span class="lineno">  267</span>&#160;  <span class="keywordflow">if</span> (status-&gt;state-&gt;<a class="code" href="hsm__state_8h.html#aa4980a3eab7184813f0cd0a98a201fcb" title="parent of this state">parent</a>-&gt;<a class="code" href="hsm__state_8h.html#af28bc68a562cca87d34f862c6ba6d3d6" title="exit action handler">exit</a>==HulaExit) {</div>
<div class="line"><a name="l00268"></a><span class="lineno">  268</span>&#160;    parent_ctx= (hula_context_t*) status-&gt;ctx;</div>
<div class="line"><a name="l00269"></a><span class="lineno">  269</span>&#160;  }</div>
<div class="line"><a name="l00270"></a><span class="lineno">  270</span>&#160;  </div>
<div class="line"><a name="l00271"></a><span class="lineno">  271</span>&#160;  <span class="comment">// if our parent has lua data, use that as this state&#39;s initial data; if not: use nil</span></div>
<div class="line"><a name="l00272"></a><span class="lineno">  272</span>&#160;  <span class="comment">// note: push *before* determining whether the user has specified an entry function;</span></div>
<div class="line"><a name="l00273"></a><span class="lineno">  273</span>&#160;  <span class="comment">// this data gets used for creating a lua context for this state, regardless.</span></div>
<div class="line"><a name="l00274"></a><span class="lineno">  274</span>&#160;  <span class="keywordflow">if</span> (!parent_ctx) {</div>
<div class="line"><a name="l00275"></a><span class="lineno">  275</span>&#160;    lua_pushnil( L );</div>
<div class="line"><a name="l00276"></a><span class="lineno">  276</span>&#160;  }</div>
<div class="line"><a name="l00277"></a><span class="lineno">  277</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00278"></a><span class="lineno">  278</span>&#160;    lua_rawgeti( L, LUA_REGISTRYINDEX, parent_ctx-&gt;lua_ref );</div>
<div class="line"><a name="l00279"></a><span class="lineno">  279</span>&#160;  }</div>
<div class="line"><a name="l00280"></a><span class="lineno">  280</span>&#160;</div>
<div class="line"><a name="l00281"></a><span class="lineno">  281</span>&#160;  <span class="comment">// no entry function means no unique data for this state:</span></div>
<div class="line"><a name="l00282"></a><span class="lineno">  282</span>&#160;  <span class="comment">// re-use our parent&#39;s context ( if its not null )</span></div>
<div class="line"><a name="l00283"></a><span class="lineno">  283</span>&#160;  <span class="keywordflow">if</span> (!lua_isfunction( L, lua_entryfn )) {</div>
<div class="line"><a name="l00284"></a><span class="lineno">  284</span>&#160;    lua_remove( L, lua_entryfn );</div>
<div class="line"><a name="l00285"></a><span class="lineno">  285</span>&#160;    <span class="keywordflow">if</span> (parent_ctx) {</div>
<div class="line"><a name="l00286"></a><span class="lineno">  286</span>&#160;      lua_pop(L,1);</div>
<div class="line"><a name="l00287"></a><span class="lineno">  287</span>&#160;      new_ctx= parent_ctx;</div>
<div class="line"><a name="l00288"></a><span class="lineno">  288</span>&#160;      ++parent_ctx-&gt;lua_ref_count;</div>
<div class="line"><a name="l00289"></a><span class="lineno">  289</span>&#160;    }</div>
<div class="line"><a name="l00290"></a><span class="lineno">  290</span>&#160;  }</div>
<div class="line"><a name="l00291"></a><span class="lineno">  291</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00292"></a><span class="lineno">  292</span>&#160;    <span class="keywordtype">int</span> err= lua_unpack_and_pcall( L, (status-&gt;hsm-&gt;<a class="code" href="hsm__machine_8h.html#ae2338fb3d7fccbba312f3151d75cef88" title="Per state machine flags.">flags</a> &amp; HSM_FLAGS_HULA), event_table, <a class="code" href="hula__lib_8h.html#a195f5a9d0b832dd1c35ef55662d4ad32" title="event table: event name">HULA_EVENT_NAME</a>, 1 ); </div>
<div class="line"><a name="l00293"></a><span class="lineno">  293</span>&#160;    <span class="keywordflow">if</span> (err) {</div>
<div class="line"><a name="l00294"></a><span class="lineno">  294</span>&#160;      <span class="keyword">const</span> <span class="keywordtype">char</span> * msg=lua_tostring(L,-1);</div>
<div class="line"><a name="l00295"></a><span class="lineno">  295</span>&#160;      lua_pop(L,1);<span class="comment">//? TODO: and do what on error exactly?</span></div>
<div class="line"><a name="l00296"></a><span class="lineno">  296</span>&#160;    }  </div>
<div class="line"><a name="l00297"></a><span class="lineno">  297</span>&#160;    <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00298"></a><span class="lineno">  298</span>&#160;      <span class="comment">// provide a &quot;shortcut&quot; so the lua entry handler doesnt have to remember to return the parent ctx:</span></div>
<div class="line"><a name="l00299"></a><span class="lineno">  299</span>&#160;      <span class="comment">// if they return nil, then we just replace it for them.</span></div>
<div class="line"><a name="l00300"></a><span class="lineno">  300</span>&#160;      <span class="keywordflow">if</span> (lua_isnil(L,-1)&amp;&amp; (!parent_ctx)) {</div>
<div class="line"><a name="l00301"></a><span class="lineno">  301</span>&#160;        lua_pop(L,-1);</div>
<div class="line"><a name="l00302"></a><span class="lineno">  302</span>&#160;        lua_rawgeti( L, LUA_REGISTRYINDEX, parent_ctx-&gt;lua_ref );</div>
<div class="line"><a name="l00303"></a><span class="lineno">  303</span>&#160;      }</div>
<div class="line"><a name="l00304"></a><span class="lineno">  304</span>&#160;    }</div>
<div class="line"><a name="l00305"></a><span class="lineno">  305</span>&#160;  }</div>
<div class="line"><a name="l00306"></a><span class="lineno">  306</span>&#160;</div>
<div class="line"><a name="l00307"></a><span class="lineno">  307</span>&#160;  <span class="comment">// if we don&#39;t have a context container by now, we need one.</span></div>
<div class="line"><a name="l00308"></a><span class="lineno">  308</span>&#160;  <span class="comment">// it will store a lua_ref to the user&#39;s data.</span></div>
<div class="line"><a name="l00309"></a><span class="lineno">  309</span>&#160;  <span class="keywordflow">if</span> (!new_ctx) {</div>
<div class="line"><a name="l00310"></a><span class="lineno">  310</span>&#160;    new_ctx= HulaCreateContext( L, -1 ); </div>
<div class="line"><a name="l00311"></a><span class="lineno">  311</span>&#160;    <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( new_ctx );</div>
<div class="line"><a name="l00312"></a><span class="lineno">  312</span>&#160;  }</div>
<div class="line"><a name="l00313"></a><span class="lineno">  313</span>&#160;</div>
<div class="line"><a name="l00314"></a><span class="lineno">  314</span>&#160;  <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( event_table== lua_gettop(L) );      <span class="comment">// is life good?</span></div>
<div class="line"><a name="l00315"></a><span class="lineno">  315</span>&#160;</div>
<div class="line"><a name="l00316"></a><span class="lineno">  316</span>&#160;  <span class="comment">// the machine keeps the context</span></div>
<div class="line"><a name="l00317"></a><span class="lineno">  317</span>&#160;  <span class="keywordflow">return</span> new_ctx ? &amp;(new_ctx-&gt;core) : 0;</div>
<div class="line"><a name="l00318"></a><span class="lineno">  318</span>&#160;}</div>
<div class="line"><a name="l00319"></a><span class="lineno">  319</span>&#160;</div>
<div class="line"><a name="l00320"></a><span class="lineno">  320</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00321"></a><span class="lineno"><a class="code" href="hula_8h.html#a1a669c3dd22043715c4e19b90e3e1373">  321</a></span>&#160;hsm_bool <a class="code" href="hula_8c.html#a1a669c3dd22043715c4e19b90e3e1373" title="Match an event specification to a triggered event.">HulaMatchEvent</a>( <span class="keyword">const</span> <span class="keywordtype">char</span> * spec, <span class="keyword">const</span> <span class="keywordtype">char</span> *test )</div>
<div class="line"><a name="l00322"></a><span class="lineno">  322</span>&#160;{</div>
<div class="line"><a name="l00323"></a><span class="lineno">  323</span>&#160;  <span class="keywordtype">int</span> scan;</div>
<div class="line"><a name="l00324"></a><span class="lineno">  324</span>&#160;  hsm_bool match=<a class="code" href="hsm__types_8h.html#ae231908aca4879403ae108cf0f5c7a9c" title="1">HSM_TRUE</a>; </div>
<div class="line"><a name="l00325"></a><span class="lineno">  325</span>&#160;  <span class="comment">// the empty string would mean you match everything</span></div>
<div class="line"><a name="l00326"></a><span class="lineno">  326</span>&#160;  <span class="keywordflow">for</span> (scan=0; spec[scan]; ++scan) {</div>
<div class="line"><a name="l00327"></a><span class="lineno">  327</span>&#160;    <span class="comment">// but if you run out of test first, you&#39;ve overspecified</span></div>
<div class="line"><a name="l00328"></a><span class="lineno">  328</span>&#160;    <span class="keywordflow">if</span> (!test[scan] || (test[scan] != spec[scan])) {</div>
<div class="line"><a name="l00329"></a><span class="lineno">  329</span>&#160;      match= <a class="code" href="hsm__types_8h.html#a661d07d1e0324624dd94942951801df4" title="0">HSM_FALSE</a>;</div>
<div class="line"><a name="l00330"></a><span class="lineno">  330</span>&#160;      <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l00331"></a><span class="lineno">  331</span>&#160;    }</div>
<div class="line"><a name="l00332"></a><span class="lineno">  332</span>&#160;  }</div>
<div class="line"><a name="l00333"></a><span class="lineno">  333</span>&#160;  <span class="comment">// we&#39;ve matched all the way to the end of spec</span></div>
<div class="line"><a name="l00334"></a><span class="lineno">  334</span>&#160;  <span class="comment">// but if the triggered event more bits that arent part of a sub-event then we dont match</span></div>
<div class="line"><a name="l00335"></a><span class="lineno">  335</span>&#160;  <span class="keywordflow">if</span> (match &amp;&amp; (test[scan] != 0 &amp;&amp; test[scan] != <span class="charliteral">&#39;.&#39;</span>)) {</div>
<div class="line"><a name="l00336"></a><span class="lineno">  336</span>&#160;    match= <a class="code" href="hsm__types_8h.html#a661d07d1e0324624dd94942951801df4" title="0">HSM_FALSE</a>;</div>
<div class="line"><a name="l00337"></a><span class="lineno">  337</span>&#160;  }</div>
<div class="line"><a name="l00338"></a><span class="lineno">  338</span>&#160;</div>
<div class="line"><a name="l00339"></a><span class="lineno">  339</span>&#160;  <span class="keywordflow">return</span> match;</div>
<div class="line"><a name="l00340"></a><span class="lineno">  340</span>&#160;}    </div>
<div class="line"><a name="l00341"></a><span class="lineno">  341</span>&#160;</div>
<div class="line"><a name="l00342"></a><span class="lineno">  342</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00349"></a><span class="lineno">  349</span>&#160;<span class="comment"></span><span class="keyword">static</span> <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> HulaRunUD( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status, <span class="keywordtype">void</span> * user_data )</div>
<div class="line"><a name="l00350"></a><span class="lineno">  350</span>&#160;{</div>
<div class="line"><a name="l00351"></a><span class="lineno">  351</span>&#160;  <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> ret=0;</div>
<div class="line"><a name="l00352"></a><span class="lineno">  352</span>&#160;  <span class="comment">// context for these states is always a hula context because of on enter </span></div>
<div class="line"><a name="l00353"></a><span class="lineno">  353</span>&#160;  hula_context_t*ctx= (hula_context_t*)(status-&gt;ctx);</div>
<div class="line"><a name="l00354"></a><span class="lineno">  354</span>&#160;  <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( ctx );</div>
<div class="line"><a name="l00355"></a><span class="lineno">  355</span>&#160;  <span class="keywordflow">if</span> (ctx) {</div>
<div class="line"><a name="l00356"></a><span class="lineno">  356</span>&#160;    lua_State* L= ctx-&gt;L;</div>
<div class="line"><a name="l00357"></a><span class="lineno">  357</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">int</span> event_table= lua_gettop(L);</div>
<div class="line"><a name="l00358"></a><span class="lineno">  358</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">char</span> * eventspec= (<span class="keyword">const</span> <span class="keywordtype">char</span>*) user_data;</div>
<div class="line"><a name="l00359"></a><span class="lineno">  359</span>&#160;   </div>
<div class="line"><a name="l00360"></a><span class="lineno">  360</span>&#160;    <span class="comment">// is this the event that&#39;s being processed one we care about?</span></div>
<div class="line"><a name="l00361"></a><span class="lineno">  361</span>&#160;    hsm_bool matches= <a class="code" href="hsm__types_8h.html#a661d07d1e0324624dd94942951801df4" title="0">HSM_FALSE</a>;</div>
<div class="line"><a name="l00362"></a><span class="lineno">  362</span>&#160;    <a class="code" href="hula_8h.html#a07900af54bbd577f5d3e7fe289e70900" title="Control whether the event being processed matches an event defined in lua.">hula_callback_is_event</a> cb= HulaGetIsEvent( L );</div>
<div class="line"><a name="l00363"></a><span class="lineno">  363</span>&#160;    <span class="keywordflow">if</span> (cb) {</div>
<div class="line"><a name="l00364"></a><span class="lineno">  364</span>&#160;      matches= cb( L, eventspec, status-&gt;evt );</div>
<div class="line"><a name="l00365"></a><span class="lineno">  365</span>&#160;    }</div>
<div class="line"><a name="l00366"></a><span class="lineno">  366</span>&#160;    <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00367"></a><span class="lineno">  367</span>&#160;      <span class="comment">// get the event name from the event table</span></div>
<div class="line"><a name="l00368"></a><span class="lineno">  368</span>&#160;      <span class="keyword">const</span> <span class="keywordtype">char</span> * trigger;</div>
<div class="line"><a name="l00369"></a><span class="lineno">  369</span>&#160;      lua_rawgeti( L, event_table, <a class="code" href="hula__lib_8h.html#a195f5a9d0b832dd1c35ef55662d4ad32" title="event table: event name">HULA_EVENT_NAME</a> );</div>
<div class="line"><a name="l00370"></a><span class="lineno">  370</span>&#160;      trigger= luaL_checkstring( L, -1 );</div>
<div class="line"><a name="l00371"></a><span class="lineno">  371</span>&#160;      matches= <a class="code" href="hula_8c.html#a1a669c3dd22043715c4e19b90e3e1373" title="Match an event specification to a triggered event.">HulaMatchEvent</a>( eventspec, trigger );</div>
<div class="line"><a name="l00372"></a><span class="lineno">  372</span>&#160;      lua_pop( L, 1 );</div>
<div class="line"><a name="l00373"></a><span class="lineno">  373</span>&#160;    }</div>
<div class="line"><a name="l00374"></a><span class="lineno">  374</span>&#160;    </div>
<div class="line"><a name="l00375"></a><span class="lineno">  375</span>&#160;    <span class="keywordflow">if</span> (matches){</div>
<div class="line"><a name="l00376"></a><span class="lineno">  376</span>&#160;      <span class="comment">// push the relevant entry from the state table</span></div>
<div class="line"><a name="l00377"></a><span class="lineno">  377</span>&#160;      <span class="keyword">const</span> <span class="keywordtype">int</span> evthandler= HulaGetEvent( L, status-&gt;state, 0, eventspec );</div>
<div class="line"><a name="l00378"></a><span class="lineno">  378</span>&#160;      <span class="keywordflow">if</span> (!lua_isfunction( L, evthandler )) {</div>
<div class="line"><a name="l00379"></a><span class="lineno">  379</span>&#160;        <span class="keyword">const</span> <span class="keywordtype">char</span> * targetname= luaL_checkstring(L, evthandler );</div>
<div class="line"><a name="l00380"></a><span class="lineno">  380</span>&#160;        ret= targetname ? <a class="code" href="hsm__builder_8c.html#a93916a77098a9337d6ca88fd4b0c45af" title="Return an hsm_state from a builder state.">hsmResolve</a>( targetname ) : 0;</div>
<div class="line"><a name="l00381"></a><span class="lineno">  381</span>&#160;        <span class="keywordflow">if</span> (!ret) {</div>
<div class="line"><a name="l00382"></a><span class="lineno">  382</span>&#160;          ret= <a class="code" href="hsm__machine_8h.html#a5574ce97f59edf4b77fafabc6ea36e54" title="Token state for when a machine has inadvertently killed itself.">HsmStateError</a>();</div>
<div class="line"><a name="l00383"></a><span class="lineno">  383</span>&#160;        }        </div>
<div class="line"><a name="l00384"></a><span class="lineno">  384</span>&#160;        lua_pop(L,1); <span class="comment">// pop the table entry</span></div>
<div class="line"><a name="l00385"></a><span class="lineno">  385</span>&#160;      }</div>
<div class="line"><a name="l00386"></a><span class="lineno">  386</span>&#160;      <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00387"></a><span class="lineno">  387</span>&#160;        <span class="keywordtype">int</span> err;</div>
<div class="line"><a name="l00388"></a><span class="lineno">  388</span>&#160;        <span class="comment">// context first</span></div>
<div class="line"><a name="l00389"></a><span class="lineno">  389</span>&#160;        lua_rawgeti( L, LUA_REGISTRYINDEX, ctx-&gt;lua_ref );</div>
<div class="line"><a name="l00390"></a><span class="lineno">  390</span>&#160;        <span class="comment">// unpack the event table, skipping the event name </span></div>
<div class="line"><a name="l00391"></a><span class="lineno">  391</span>&#160;        err= lua_unpack_and_pcall( L, (status-&gt;hsm-&gt;<a class="code" href="hsm__machine_8h.html#ae2338fb3d7fccbba312f3151d75cef88" title="Per state machine flags.">flags</a> &amp; HSM_FLAGS_HULA), event_table, HULA_EVENT_PAYLOAD, 1 );</div>
<div class="line"><a name="l00392"></a><span class="lineno">  392</span>&#160;        <span class="keywordflow">if</span> (err) {</div>
<div class="line"><a name="l00393"></a><span class="lineno">  393</span>&#160;          <span class="keyword">const</span> <span class="keywordtype">char</span> * msg=lua_tostring(L,-1);</div>
<div class="line"><a name="l00394"></a><span class="lineno">  394</span>&#160;          lua_pop(L,1);<span class="comment">//? TODO: and do what on error exactly?</span></div>
<div class="line"><a name="l00395"></a><span class="lineno">  395</span>&#160;          ret= <a class="code" href="hsm__machine_8h.html#a5574ce97f59edf4b77fafabc6ea36e54" title="Token state for when a machine has inadvertently killed itself.">HsmStateError</a>();</div>
<div class="line"><a name="l00396"></a><span class="lineno">  396</span>&#160;        }  </div>
<div class="line"><a name="l00397"></a><span class="lineno">  397</span>&#160;        <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00398"></a><span class="lineno">  398</span>&#160;          <span class="comment">// evaluate the results</span></div>
<div class="line"><a name="l00399"></a><span class="lineno">  399</span>&#160;          <span class="keywordflow">if</span> (lua_isstring( L, -1 )) {</div>
<div class="line"><a name="l00400"></a><span class="lineno">  400</span>&#160;            <span class="keyword">const</span> <span class="keywordtype">char</span> * name= lua_tostring( L, -1 );</div>
<div class="line"><a name="l00401"></a><span class="lineno">  401</span>&#160;            ret= <a class="code" href="hsm__builder_8c.html#a93916a77098a9337d6ca88fd4b0c45af" title="Return an hsm_state from a builder state.">hsmResolve</a>( name );</div>
<div class="line"><a name="l00402"></a><span class="lineno">  402</span>&#160;          }</div>
<div class="line"><a name="l00403"></a><span class="lineno">  403</span>&#160;          <span class="keywordflow">else</span></div>
<div class="line"><a name="l00404"></a><span class="lineno">  404</span>&#160;          <span class="keywordflow">if</span> (lua_isboolean( L, -1 ) &amp;&amp; lua_toboolean( L, -1 )) {</div>
<div class="line"><a name="l00405"></a><span class="lineno">  405</span>&#160;            ret= <a class="code" href="hsm__machine_8h.html#a3a16509f8bea2bca3f7b3f36525cc243" title="Token state that can be used by event handler functions to indicate the event was handled and no furt...">HsmStateHandled</a>();</div>
<div class="line"><a name="l00406"></a><span class="lineno">  406</span>&#160;          }</div>
<div class="line"><a name="l00407"></a><span class="lineno">  407</span>&#160;          <span class="comment">// pop the function results</span></div>
<div class="line"><a name="l00408"></a><span class="lineno">  408</span>&#160;          lua_pop(L,1);</div>
<div class="line"><a name="l00409"></a><span class="lineno">  409</span>&#160;        }          </div>
<div class="line"><a name="l00410"></a><span class="lineno">  410</span>&#160;      }</div>
<div class="line"><a name="l00411"></a><span class="lineno">  411</span>&#160;      <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( event_table== lua_gettop(L) );      <span class="comment">// is life good?</span></div>
<div class="line"><a name="l00412"></a><span class="lineno">  412</span>&#160;    }</div>
<div class="line"><a name="l00413"></a><span class="lineno">  413</span>&#160;  }  </div>
<div class="line"><a name="l00414"></a><span class="lineno">  414</span>&#160;  <span class="comment">// return the next state</span></div>
<div class="line"><a name="l00415"></a><span class="lineno">  415</span>&#160;  <span class="keywordflow">return</span> ret;</div>
<div class="line"><a name="l00416"></a><span class="lineno">  416</span>&#160;}</div>
<div class="line"><a name="l00417"></a><span class="lineno">  417</span>&#160;</div>
<div class="line"><a name="l00418"></a><span class="lineno">  418</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00422"></a><span class="lineno">  422</span>&#160;<span class="comment"></span><span class="keyword">static</span> <span class="keywordtype">void</span> HulaExit( <a class="code" href="hsm__status_8h.html#structhsm__status__rec" title="Structure used for consolidating callback parameters.">hsm_status</a> status )</div>
<div class="line"><a name="l00423"></a><span class="lineno">  423</span>&#160;{</div>
<div class="line"><a name="l00424"></a><span class="lineno">  424</span>&#160;  hula_context_t*ctx= (hula_context_t*)(status-&gt;ctx);</div>
<div class="line"><a name="l00425"></a><span class="lineno">  425</span>&#160;  lua_State* L= ctx-&gt;L;</div>
<div class="line"><a name="l00426"></a><span class="lineno">  426</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> event_table= lua_gettop(L);</div>
<div class="line"><a name="l00427"></a><span class="lineno">  427</span>&#160;</div>
<div class="line"><a name="l00428"></a><span class="lineno">  428</span>&#160;  <span class="comment">// pull the function to call:</span></div>
<div class="line"><a name="l00429"></a><span class="lineno">  429</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> lua_exitfn= HulaGetEvent( L, status-&gt;state, LUA_T_EXIT, 0 );</div>
<div class="line"><a name="l00430"></a><span class="lineno">  430</span>&#160;</div>
<div class="line"><a name="l00431"></a><span class="lineno">  431</span>&#160;  <span class="comment">// call the function: one arg, zero results</span></div>
<div class="line"><a name="l00432"></a><span class="lineno">  432</span>&#160;  <span class="keywordflow">if</span> (!lua_isfunction( L, lua_exitfn )) {</div>
<div class="line"><a name="l00433"></a><span class="lineno">  433</span>&#160;    lua_remove( L, lua_exitfn );</div>
<div class="line"><a name="l00434"></a><span class="lineno">  434</span>&#160;  }</div>
<div class="line"><a name="l00435"></a><span class="lineno">  435</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00436"></a><span class="lineno">  436</span>&#160;    <span class="keywordtype">int</span> err;</div>
<div class="line"><a name="l00437"></a><span class="lineno">  437</span>&#160;    <span class="comment">// get the context</span></div>
<div class="line"><a name="l00438"></a><span class="lineno">  438</span>&#160;    lua_rawgeti( L, LUA_REGISTRYINDEX, ctx-&gt;lua_ref );</div>
<div class="line"><a name="l00439"></a><span class="lineno">  439</span>&#160;    <span class="comment">// unpack the event object and call the already pushed function</span></div>
<div class="line"><a name="l00440"></a><span class="lineno">  440</span>&#160;    err= lua_unpack_and_pcall( L, (status-&gt;hsm-&gt;<a class="code" href="hsm__machine_8h.html#ae2338fb3d7fccbba312f3151d75cef88" title="Per state machine flags.">flags</a> &amp; HSM_FLAGS_HULA), event_table, <a class="code" href="hula__lib_8h.html#a195f5a9d0b832dd1c35ef55662d4ad32" title="event table: event name">HULA_EVENT_NAME</a>, 1 );  <span class="comment">// errors dont return</span></div>
<div class="line"><a name="l00441"></a><span class="lineno">  441</span>&#160;    <span class="keywordflow">if</span> (err) {</div>
<div class="line"><a name="l00442"></a><span class="lineno">  442</span>&#160;        <span class="keyword">const</span> <span class="keywordtype">char</span> * msg=lua_tostring(L,-1);</div>
<div class="line"><a name="l00443"></a><span class="lineno">  443</span>&#160;        lua_pop(L,1);<span class="comment">//? TODO: and do what on error exactly?</span></div>
<div class="line"><a name="l00444"></a><span class="lineno">  444</span>&#160;    }</div>
<div class="line"><a name="l00445"></a><span class="lineno">  445</span>&#160;  }  </div>
<div class="line"><a name="l00446"></a><span class="lineno">  446</span>&#160;</div>
<div class="line"><a name="l00447"></a><span class="lineno">  447</span>&#160;  <span class="comment">// release the old lua data</span></div>
<div class="line"><a name="l00448"></a><span class="lineno">  448</span>&#160;  <span class="keywordflow">if</span> (--ctx-&gt;lua_ref_count &lt;0) {</div>
<div class="line"><a name="l00449"></a><span class="lineno">  449</span>&#160;    luaL_unref( L, LUA_REGISTRYINDEX, ctx-&gt;lua_ref );</div>
<div class="line"><a name="l00450"></a><span class="lineno">  450</span>&#160;    ctx-&gt;lua_ref= LUA_NOREF;</div>
<div class="line"><a name="l00451"></a><span class="lineno">  451</span>&#160;  }    </div>
<div class="line"><a name="l00452"></a><span class="lineno">  452</span>&#160;  <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( event_table== lua_gettop(L) );      <span class="comment">// is life good?</span></div>
<div class="line"><a name="l00453"></a><span class="lineno">  453</span>&#160;}</div>
<div class="line"><a name="l00454"></a><span class="lineno">  454</span>&#160;</div>
<div class="line"><a name="l00455"></a><span class="lineno">  455</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00459"></a><span class="lineno">  459</span>&#160;<span class="comment"></span><span class="keyword">const</span> <span class="keywordtype">char</span> * INIT  = <span class="stringliteral">&quot;init&quot;</span>;</div>
<div class="line"><a name="l00460"></a><span class="lineno">  460</span>&#160;<span class="keyword">const</span> <span class="keywordtype">char</span> * ENTRY = <span class="stringliteral">&quot;entry&quot;</span>;</div>
<div class="line"><a name="l00461"></a><span class="lineno">  461</span>&#160;<span class="keyword">const</span> <span class="keywordtype">char</span> * EXIT  = <span class="stringliteral">&quot;exit&quot;</span>;</div>
<div class="line"><a name="l00462"></a><span class="lineno">  462</span>&#160; </div>
<div class="line"><a name="l00469"></a><span class="lineno">  469</span>&#160;<span class="keyword">static</span> hula_error _HulaBuildState( lua_State*L, <span class="keyword">const</span> <span class="keywordtype">int</span> table, nstring_t statename ) </div>
<div class="line"><a name="l00470"></a><span class="lineno">  470</span>&#160;{</div>
<div class="line"><a name="l00471"></a><span class="lineno">  471</span>&#160;  hula_error err= 0;</div>
<div class="line"><a name="l00472"></a><span class="lineno">  472</span>&#160;  <span class="keywordflow">if</span> (!NSTRING(statename)) {</div>
<div class="line"><a name="l00473"></a><span class="lineno">  473</span>&#160;    err= HULA_ERR_ARG;</div>
<div class="line"><a name="l00474"></a><span class="lineno">  474</span>&#160;  }</div>
<div class="line"><a name="l00475"></a><span class="lineno">  475</span>&#160;  <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00476"></a><span class="lineno">  476</span>&#160;    <span class="keywordtype">int</span> initState=0;</div>
<div class="line"><a name="l00477"></a><span class="lineno">  477</span>&#160;    <span class="comment">// check for an &#39;init&#39; entry</span></div>
<div class="line"><a name="l00478"></a><span class="lineno">  478</span>&#160;    <span class="comment">// ie. the right side of { -init=&#39;s1&#39; }</span></div>
<div class="line"><a name="l00479"></a><span class="lineno">  479</span>&#160;    lua_getfield( L, table, INIT );  </div>
<div class="line"><a name="l00480"></a><span class="lineno">  480</span>&#160;    <span class="comment">// its okay not to have an init; </span></div>
<div class="line"><a name="l00481"></a><span class="lineno">  481</span>&#160;    <span class="comment">// ( TODO: a check to make the state deosnt have children? )</span></div>
<div class="line"><a name="l00482"></a><span class="lineno">  482</span>&#160;    <span class="keywordflow">if</span> (lua_isnil( L, -1 )) {</div>
<div class="line"><a name="l00483"></a><span class="lineno">  483</span>&#160;      lua_pop(L,1); </div>
<div class="line"><a name="l00484"></a><span class="lineno">  484</span>&#160;    }</div>
<div class="line"><a name="l00485"></a><span class="lineno">  485</span>&#160;    <span class="keywordflow">else</span> </div>
<div class="line"><a name="l00486"></a><span class="lineno">  486</span>&#160;    <span class="keywordflow">if</span> (!lua_isstring( L, -1) ) {</div>
<div class="line"><a name="l00487"></a><span class="lineno">  487</span>&#160;      err= HULA_ERR_UNEXPECTED_KEY;</div>
<div class="line"><a name="l00488"></a><span class="lineno">  488</span>&#160;      lua_pop(L,1);</div>
<div class="line"><a name="l00489"></a><span class="lineno">  489</span>&#160;    }</div>
<div class="line"><a name="l00490"></a><span class="lineno">  490</span>&#160;    <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00491"></a><span class="lineno">  491</span>&#160;      nstring_t initname;</div>
<div class="line"><a name="l00492"></a><span class="lineno">  492</span>&#160;      lua_pushvalue( L, -1 );        <span class="comment">// dupe the name: we need to keep a pointer to it</span></div>
<div class="line"><a name="l00493"></a><span class="lineno">  493</span>&#160;      lua_tonstring( L, -2, &amp;initname );</div>
<div class="line"><a name="l00494"></a><span class="lineno">  494</span>&#160;      <span class="comment">// from the main, get table the definition of the init state, </span></div>
<div class="line"><a name="l00495"></a><span class="lineno">  495</span>&#160;      <span class="comment">// ie. the right side of { &#39;s1&#39;= {} }</span></div>
<div class="line"><a name="l00496"></a><span class="lineno">  496</span>&#160;      lua_gettable( L, table );        </div>
<div class="line"><a name="l00497"></a><span class="lineno">  497</span>&#160;      <span class="keywordflow">if</span> (!(initState= <a class="code" href="hsm__builder_8c.html#a6fcf2030bd45065a782c496502ab7ac4" title="Define a named state.">hsmBegin</a>( initname.string, initname.len ))) {</div>
<div class="line"><a name="l00498"></a><span class="lineno">  498</span>&#160;        err= <span class="stringliteral">&quot;_HulaBuildState: hsmBegin initial state&quot;</span>;</div>
<div class="line"><a name="l00499"></a><span class="lineno">  499</span>&#160;      }</div>
<div class="line"><a name="l00500"></a><span class="lineno">  500</span>&#160;      <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00501"></a><span class="lineno">  501</span>&#160;        <span class="keyword">const</span> <span class="keywordtype">int</span> check= lua_gettop(L);</div>
<div class="line"><a name="l00502"></a><span class="lineno">  502</span>&#160;        err= _HulaBuildState( L, lua_gettop(L), initname );</div>
<div class="line"><a name="l00503"></a><span class="lineno">  503</span>&#160;        <a class="code" href="hsm__builder_8c.html#a1b3b9447cfcb13c231a4814341987e0c" title="Complete the declaration of a state started by hsmBegin().">hsmEnd</a>();</div>
<div class="line"><a name="l00504"></a><span class="lineno">  504</span>&#160;        <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( check == lua_gettop(L) );</div>
<div class="line"><a name="l00505"></a><span class="lineno">  505</span>&#160;      }      </div>
<div class="line"><a name="l00506"></a><span class="lineno">  506</span>&#160;      lua_pop( L, 2 ); <span class="comment">// pop the init dupe, and the init state&#39;s table.</span></div>
<div class="line"><a name="l00507"></a><span class="lineno">  507</span>&#160;    }</div>
<div class="line"><a name="l00508"></a><span class="lineno">  508</span>&#160;</div>
<div class="line"><a name="l00509"></a><span class="lineno">  509</span>&#160;    <span class="keywordflow">if</span> (!err) {</div>
<div class="line"><a name="l00510"></a><span class="lineno">  510</span>&#160;      <span class="comment">// create a lua table to hold functions</span></div>
<div class="line"><a name="l00511"></a><span class="lineno">  511</span>&#160;      <span class="keyword">const</span> <span class="keywordtype">int</span> state_table= HulaCreateStateTable( L, statename );</div>
<div class="line"><a name="l00512"></a><span class="lineno">  512</span>&#160;</div>
<div class="line"><a name="l00513"></a><span class="lineno">  513</span>&#160;      <span class="comment">// force each and every lua function to have the context management it needs</span></div>
<div class="line"><a name="l00514"></a><span class="lineno">  514</span>&#160;      <a class="code" href="hsm__builder_8c.html#a1c668b2d6fb30c0ba5e4ea0eda41f71e" title="Specify a callback for state entry w/ user data.">hsmOnEnterUD</a>( HulaEnterUD, L );</div>
<div class="line"><a name="l00515"></a><span class="lineno">  515</span>&#160;      <a class="code" href="hsm__builder_8c.html#a6c2cad581a89f299c5ac0fdac56b6e03" title="Specify a callback for state exit.">hsmOnExit</a>( HulaExit );</div>
<div class="line"><a name="l00516"></a><span class="lineno">  516</span>&#160;</div>
<div class="line"><a name="l00517"></a><span class="lineno">  517</span>&#160;      <span class="comment">// walk the contents of the source table</span></div>
<div class="line"><a name="l00518"></a><span class="lineno">  518</span>&#160;      lua_pushnil(L);</div>
<div class="line"><a name="l00519"></a><span class="lineno">  519</span>&#160;      <span class="keywordflow">while</span> (lua_next(L, table)) {</div>
<div class="line"><a name="l00520"></a><span class="lineno">  520</span>&#160;        nstring_t keyname; </div>
<div class="line"><a name="l00521"></a><span class="lineno">  521</span>&#160;        <span class="keyword">const</span> <span class="keywordtype">int</span> value_idx= lua_gettop(L);</div>
<div class="line"><a name="l00522"></a><span class="lineno">  522</span>&#160;        <span class="keyword">const</span> <span class="keywordtype">int</span> key_idx = value_idx-1;</div>
<div class="line"><a name="l00523"></a><span class="lineno">  523</span>&#160;                </div>
<div class="line"><a name="l00524"></a><span class="lineno">  524</span>&#160;        <span class="comment">// we expect that key is always a string. not just stringable.</span></div>
<div class="line"><a name="l00525"></a><span class="lineno">  525</span>&#160;        <span class="comment">// (  note: in place coercion of non-string key can corrupt lua_next() )</span></div>
<div class="line"><a name="l00526"></a><span class="lineno">  526</span>&#160;        <span class="keywordflow">if</span> (err || !lua_isstring( L, key_idx )) {</div>
<div class="line"><a name="l00527"></a><span class="lineno">  527</span>&#160;          err= err ? err : HULA_ERR_UNEXPECTED_KEY; </div>
<div class="line"><a name="l00528"></a><span class="lineno">  528</span>&#160;          lua_pop(L,2);  <span class="comment">// pop loop iterators</span></div>
<div class="line"><a name="l00529"></a><span class="lineno">  529</span>&#160;          <span class="keywordflow">break</span>; </div>
<div class="line"><a name="l00530"></a><span class="lineno">  530</span>&#160;        }</div>
<div class="line"><a name="l00531"></a><span class="lineno">  531</span>&#160;        </div>
<div class="line"><a name="l00532"></a><span class="lineno">  532</span>&#160;        lua_tonstring( L, key_idx, &amp;keyname );</div>
<div class="line"><a name="l00533"></a><span class="lineno">  533</span>&#160;        <span class="comment">// if the key:value is a a table, its a state, we need to create it.</span></div>
<div class="line"><a name="l00534"></a><span class="lineno">  534</span>&#160;        <span class="keywordflow">if</span> ( lua_istable( L, value_idx ) )  {</div>
<div class="line"><a name="l00535"></a><span class="lineno">  535</span>&#160;          <span class="comment">// but: if the nextState is our initial state... </span></div>
<div class="line"><a name="l00536"></a><span class="lineno">  536</span>&#160;          <span class="comment">// then we&#39;ve already created it. ( i wish there was a simpler way )</span></div>
<div class="line"><a name="l00537"></a><span class="lineno">  537</span>&#160;          <span class="keyword">const</span> <span class="keywordtype">int</span> nextState= <a class="code" href="hsm__builder_8c.html#a5779f163e882967ac81477d847f2733b" title="Declare a new state.">hsmState</a>( keyname.string );</div>
<div class="line"><a name="l00538"></a><span class="lineno">  538</span>&#160;          <span class="keywordflow">if</span> (nextState!= initState) {</div>
<div class="line"><a name="l00539"></a><span class="lineno">  539</span>&#160;            <span class="keywordflow">if</span> (!<a class="code" href="hsm__builder_8c.html#a6fcf2030bd45065a782c496502ab7ac4" title="Define a named state.">hsmBegin</a>( keyname.string, keyname.len )) {</div>
<div class="line"><a name="l00540"></a><span class="lineno">  540</span>&#160;              err= <span class="stringliteral">&quot;_HualBuildState:hsmBegin staet&quot;</span>;</div>
<div class="line"><a name="l00541"></a><span class="lineno">  541</span>&#160;            }</div>
<div class="line"><a name="l00542"></a><span class="lineno">  542</span>&#160;            <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00543"></a><span class="lineno">  543</span>&#160;              <span class="keyword">const</span> <span class="keywordtype">int</span> check= lua_gettop(L);</div>
<div class="line"><a name="l00544"></a><span class="lineno">  544</span>&#160;              err= _HulaBuildState( L, value_idx, keyname );</div>
<div class="line"><a name="l00545"></a><span class="lineno">  545</span>&#160;              <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( check== lua_gettop(L) );</div>
<div class="line"><a name="l00546"></a><span class="lineno">  546</span>&#160;              <a class="code" href="hsm__builder_8c.html#a1b3b9447cfcb13c231a4814341987e0c" title="Complete the declaration of a state started by hsmBegin().">hsmEnd</a>(); </div>
<div class="line"><a name="l00547"></a><span class="lineno">  547</span>&#160;            }</div>
<div class="line"><a name="l00548"></a><span class="lineno">  548</span>&#160;          }            </div>
<div class="line"><a name="l00549"></a><span class="lineno">  549</span>&#160;          <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( value_idx == lua_gettop(L) );</div>
<div class="line"><a name="l00550"></a><span class="lineno">  550</span>&#160;          lua_pop(L,1); <span class="comment">// pop `value`, leaving key on top for lua_next() loop</span></div>
<div class="line"><a name="l00551"></a><span class="lineno">  551</span>&#160;        }</div>
<div class="line"><a name="l00552"></a><span class="lineno">  552</span>&#160;        <span class="keywordflow">else</span>  {</div>
<div class="line"><a name="l00553"></a><span class="lineno">  553</span>&#160;          <span class="keyword">const</span> <span class="keywordtype">int</span> is_target_function= lua_isfunction( L, value_idx );</div>
<div class="line"><a name="l00554"></a><span class="lineno">  554</span>&#160;          <span class="keyword">const</span> <span class="keywordtype">int</span> is_target_name= lua_isstring( L, value_idx );</div>
<div class="line"><a name="l00555"></a><span class="lineno">  555</span>&#160;          <span class="keywordflow">if</span> (!is_target_name &amp;&amp; !is_target_function) {</div>
<div class="line"><a name="l00556"></a><span class="lineno">  556</span>&#160;            err= HULA_ERR_UNEXPECTED_VALUE;</div>
<div class="line"><a name="l00557"></a><span class="lineno">  557</span>&#160;            lua_pop(L,2); <span class="comment">// pop loop iterators</span></div>
<div class="line"><a name="l00558"></a><span class="lineno">  558</span>&#160;            <span class="keywordflow">break</span>;</div>
<div class="line"><a name="l00559"></a><span class="lineno">  559</span>&#160;          }</div>
<div class="line"><a name="l00560"></a><span class="lineno">  560</span>&#160;          <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00561"></a><span class="lineno">  561</span>&#160;            <span class="comment">// Init: ex. { init = &#39;s11&#39; } but .... we took care of it already.</span></div>
<div class="line"><a name="l00562"></a><span class="lineno">  562</span>&#160;            <span class="keywordflow">if</span> (NSTRING_IS( keyname, INIT )) {</div>
<div class="line"><a name="l00563"></a><span class="lineno">  563</span>&#160;              lua_pop(L,1); <span class="comment">// manually pop the value</span></div>
<div class="line"><a name="l00564"></a><span class="lineno">  564</span>&#160;            }</div>
<div class="line"><a name="l00565"></a><span class="lineno">  565</span>&#160;            <span class="keywordflow">else</span> </div>
<div class="line"><a name="l00566"></a><span class="lineno">  566</span>&#160;            <span class="comment">// Entry: ex. { enter = function() end }</span></div>
<div class="line"><a name="l00567"></a><span class="lineno">  567</span>&#160;            <span class="keywordflow">if</span> (is_target_function &amp;&amp; NSTRING_IS( keyname, ENTRY )) {</div>
<div class="line"><a name="l00568"></a><span class="lineno">  568</span>&#160;              <span class="comment">// state_table[&#39;exit&#39;]= function</span></div>
<div class="line"><a name="l00569"></a><span class="lineno">  569</span>&#160;              lua_rawseti( L, state_table, LUA_T_ENTER ); <span class="comment">// value is popped.</span></div>
<div class="line"><a name="l00570"></a><span class="lineno">  570</span>&#160;            }</div>
<div class="line"><a name="l00571"></a><span class="lineno">  571</span>&#160;            <span class="keywordflow">else</span> </div>
<div class="line"><a name="l00572"></a><span class="lineno">  572</span>&#160;            <span class="comment">// Exit: ex. { enter = function() end }</span></div>
<div class="line"><a name="l00573"></a><span class="lineno">  573</span>&#160;            <span class="keywordflow">if</span> (is_target_function &amp;&amp; NSTRING_IS( keyname, EXIT )) {</div>
<div class="line"><a name="l00574"></a><span class="lineno">  574</span>&#160;              <span class="comment">// state_table[&#39;exit&#39;]= function</span></div>
<div class="line"><a name="l00575"></a><span class="lineno">  575</span>&#160;              lua_rawseti( L, state_table, LUA_T_EXIT ); <span class="comment">// value is popped.</span></div>
<div class="line"><a name="l00576"></a><span class="lineno">  576</span>&#160;            }</div>
<div class="line"><a name="l00577"></a><span class="lineno">  577</span>&#160;            <span class="comment">// Event: ex. { event = &#39;name&#39; }, or: { event = function() end }</span></div>
<div class="line"><a name="l00578"></a><span class="lineno">  578</span>&#160;            <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00579"></a><span class="lineno">  579</span>&#160;              <span class="keyword">const</span> <span class="keywordtype">char</span> *eventspec= keyname.string;</div>
<div class="line"><a name="l00580"></a><span class="lineno">  580</span>&#160;              <a class="code" href="hsm__builder_8c.html#a9779629a8d1c719b3c5d5f0c761c8aee" title="Declare a new event handler.">hsmOnEventUD</a>( HulaRunUD, (<span class="keywordtype">void</span>*) eventspec );</div>
<div class="line"><a name="l00581"></a><span class="lineno">  581</span>&#160;              <span class="comment">// store state_table[ &#39;eventspec&#39; ]= target.</span></div>
<div class="line"><a name="l00582"></a><span class="lineno">  582</span>&#160;              <span class="comment">// to ensure HulaUserIsEvent has a valid &#39;eventspec&#39; pointer.</span></div>
<div class="line"><a name="l00583"></a><span class="lineno">  583</span>&#160;              <span class="comment">// not officially supported, but sharing string memory works.</span></div>
<div class="line"><a name="l00584"></a><span class="lineno">  584</span>&#160;              <span class="comment">// alternative: copy or ref string memory, and remember to clean it up.</span></div>
<div class="line"><a name="l00585"></a><span class="lineno">  585</span>&#160;              <span class="comment">// might want a named events feature in builder, but avoiding the api complication for now.</span></div>
<div class="line"><a name="l00586"></a><span class="lineno">  586</span>&#160;              lua_setfield( L, state_table, eventspec );  <span class="comment">// value is popped.</span></div>
<div class="line"><a name="l00587"></a><span class="lineno">  587</span>&#160;            }</div>
<div class="line"><a name="l00588"></a><span class="lineno">  588</span>&#160;          }              </div>
<div class="line"><a name="l00589"></a><span class="lineno">  589</span>&#160;        }        </div>
<div class="line"><a name="l00590"></a><span class="lineno">  590</span>&#160;      }</div>
<div class="line"><a name="l00591"></a><span class="lineno">  591</span>&#160;      lua_remove( L, state_table );</div>
<div class="line"><a name="l00592"></a><span class="lineno">  592</span>&#160;    }</div>
<div class="line"><a name="l00593"></a><span class="lineno">  593</span>&#160;  }</div>
<div class="line"><a name="l00594"></a><span class="lineno">  594</span>&#160;  <span class="keywordflow">return</span> err;</div>
<div class="line"><a name="l00595"></a><span class="lineno">  595</span>&#160;}</div>
<div class="line"><a name="l00596"></a><span class="lineno">  596</span>&#160;</div>
<div class="line"><a name="l00597"></a><span class="lineno">  597</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00598"></a><span class="lineno">  598</span>&#160;<span class="comment">/*</span></div>
<div class="line"><a name="l00599"></a><span class="lineno">  599</span>&#160;<span class="comment"> * chart = { statename = { ...statebody... } }</span></div>
<div class="line"><a name="l00600"></a><span class="lineno">  600</span>&#160;<span class="comment"> */</span></div>
<div class="line"><a name="l00601"></a><span class="lineno"><a class="code" href="hula_8h.html#ae4d3c25d3fea8dfffb7e6cc73e5b97aa">  601</a></span>&#160;hula_error <a class="code" href="hula_8c.html#ab7c72adc2621b45e9da911e423672784" title="Create an hsm-statechart state from a lua state description.">HulaBuildState</a>( lua_State*L, <span class="keywordtype">int</span> chartidx, <span class="keywordtype">int</span> * pid ) </div>
<div class="line"><a name="l00602"></a><span class="lineno">  602</span>&#160;{</div>
<div class="line"><a name="l00603"></a><span class="lineno">  603</span>&#160;  hula_error err= <span class="stringliteral">&quot;HulaBuildState: error&quot;</span>;</div>
<div class="line"><a name="l00604"></a><span class="lineno">  604</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> check= lua_gettop(L);</div>
<div class="line"><a name="l00605"></a><span class="lineno">  605</span>&#160;  </div>
<div class="line"><a name="l00606"></a><span class="lineno">  606</span>&#160;  <span class="comment">//  we want to get the one and only entry, but we dont know its index</span></div>
<div class="line"><a name="l00607"></a><span class="lineno">  607</span>&#160;  lua_pushnil(L);</div>
<div class="line"><a name="l00608"></a><span class="lineno">  608</span>&#160;</div>
<div class="line"><a name="l00609"></a><span class="lineno">  609</span>&#160;  <span class="comment">// note: there&#39;s nothing wrong, technically, with an empty state</span></div>
<div class="line"><a name="l00610"></a><span class="lineno">  610</span>&#160;  <span class="keywordflow">if</span> (lua_next(L, chartidx)) {       <span class="comment">// pops top; pulls key,value on to the stack</span></div>
<div class="line"><a name="l00611"></a><span class="lineno">  611</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">int</span> bodyidx = lua_gettop(L);</div>
<div class="line"><a name="l00612"></a><span class="lineno">  612</span>&#160;    <span class="keyword">const</span> <span class="keywordtype">int</span> nameidx = bodyidx-1;</div>
<div class="line"><a name="l00613"></a><span class="lineno">  613</span>&#160;    lua_pushvalue( L, nameidx );</div>
<div class="line"><a name="l00614"></a><span class="lineno">  614</span>&#160;    <span class="keywordflow">if</span> (lua_next(L, chartidx )) {</div>
<div class="line"><a name="l00615"></a><span class="lineno">  615</span>&#160;      err= <span class="stringliteral">&quot;only state={body} pair can be in the top state&quot;</span>;</div>
<div class="line"><a name="l00616"></a><span class="lineno">  616</span>&#160;      lua_pop(L,4); <span class="comment">// pop both sets of iterators</span></div>
<div class="line"><a name="l00617"></a><span class="lineno">  617</span>&#160;    }</div>
<div class="line"><a name="l00618"></a><span class="lineno">  618</span>&#160;    <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00619"></a><span class="lineno">  619</span>&#160;      <span class="keywordflow">if</span> (!lua_isstring( L, nameidx )) {</div>
<div class="line"><a name="l00620"></a><span class="lineno">  620</span>&#160;        err= <span class="stringliteral">&quot;all keys must be strings&quot;</span>;</div>
<div class="line"><a name="l00621"></a><span class="lineno">  621</span>&#160;      }</div>
<div class="line"><a name="l00622"></a><span class="lineno">  622</span>&#160;      <span class="keywordflow">else</span></div>
<div class="line"><a name="l00623"></a><span class="lineno">  623</span>&#160;      <span class="keywordflow">if</span> (!lua_istable( L, bodyidx )) {</div>
<div class="line"><a name="l00624"></a><span class="lineno">  624</span>&#160;        err= <span class="stringliteral">&quot;expected a state object&quot;</span>;</div>
<div class="line"><a name="l00625"></a><span class="lineno">  625</span>&#160;      }</div>
<div class="line"><a name="l00626"></a><span class="lineno">  626</span>&#160;      <span class="keywordflow">else</span> {</div>
<div class="line"><a name="l00627"></a><span class="lineno">  627</span>&#160;        nstring_t name;</div>
<div class="line"><a name="l00628"></a><span class="lineno">  628</span>&#160;        lua_tonstring( L, nameidx, &amp;name );</div>
<div class="line"><a name="l00629"></a><span class="lineno">  629</span>&#160;        err= <a class="code" href="hula_8c.html#a4e2c1680d59b39dad3c4d5834e00c858" title="Create an hsm-statechart state from a lua state description.">HulaBuildNamedState</a>( L, bodyidx, name.string, name.len, pid );</div>
<div class="line"><a name="l00630"></a><span class="lineno">  630</span>&#160;      }        </div>
<div class="line"><a name="l00631"></a><span class="lineno">  631</span>&#160;      lua_pop(L,2); <span class="comment">// pop iterators</span></div>
<div class="line"><a name="l00632"></a><span class="lineno">  632</span>&#160;    }      </div>
<div class="line"><a name="l00633"></a><span class="lineno">  633</span>&#160;  }    </div>
<div class="line"><a name="l00634"></a><span class="lineno">  634</span>&#160;</div>
<div class="line"><a name="l00635"></a><span class="lineno">  635</span>&#160;  <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( check == lua_gettop(L) );</div>
<div class="line"><a name="l00636"></a><span class="lineno">  636</span>&#160;  <span class="keywordflow">return</span> err;</div>
<div class="line"><a name="l00637"></a><span class="lineno">  637</span>&#160;}</div>
<div class="line"><a name="l00638"></a><span class="lineno">  638</span>&#160;</div>
<div class="line"><a name="l00639"></a><span class="lineno">  639</span>&#160;<span class="comment">//---------------------------------------------------------------------------</span></div>
<div class="line"><a name="l00640"></a><span class="lineno">  640</span>&#160;<span class="comment">/*</span></div>
<div class="line"><a name="l00641"></a><span class="lineno">  641</span>&#160;<span class="comment"> * chart = { -init=&#39;s1&#39;, s1={ ...statebody... }, s2={ ...statebody... }, ... }</span></div>
<div class="line"><a name="l00642"></a><span class="lineno">  642</span>&#160;<span class="comment"> *</span></div>
<div class="line"><a name="l00643"></a><span class="lineno">  643</span>&#160;<span class="comment"> * @param[out] pid Contains the id of the state, so long as pid is non-null and the state was built successfully.</span></div>
<div class="line"><a name="l00644"></a><span class="lineno">  644</span>&#160;<span class="comment"> * @return 0, or an error string.</span></div>
<div class="line"><a name="l00645"></a><span class="lineno">  645</span>&#160;<span class="comment"> */</span></div>
<div class="line"><a name="l00646"></a><span class="lineno"><a class="code" href="hula_8h.html#a3f729e51c6187caa82d7adf2a618ceac">  646</a></span>&#160;hula_error <a class="code" href="hula_8c.html#a4e2c1680d59b39dad3c4d5834e00c858" title="Create an hsm-statechart state from a lua state description.">HulaBuildNamedState</a>( lua_State*L, <span class="keywordtype">int</span> idx, <span class="keyword">const</span> <span class="keywordtype">char</span> * name, <span class="keywordtype">int</span> namelen, <span class="keywordtype">int</span> * pid )</div>
<div class="line"><a name="l00647"></a><span class="lineno">  647</span>&#160;{</div>
<div class="line"><a name="l00648"></a><span class="lineno">  648</span>&#160;  hula_error err= <span class="stringliteral">&quot;HulaBuildNamedState: error&quot;</span>;</div>
<div class="line"><a name="l00649"></a><span class="lineno">  649</span>&#160;  <span class="keyword">const</span> <span class="keywordtype">int</span> <span class="keywordtype">id</span>= <a class="code" href="hsm__builder_8c.html#a5779f163e882967ac81477d847f2733b" title="Declare a new state.">hsmState</a>( name );</div>
<div class="line"><a name="l00650"></a><span class="lineno">  650</span>&#160;  <span class="keywordflow">if</span> (<span class="keywordtype">id</span>) {</div>
<div class="line"><a name="l00651"></a><span class="lineno">  651</span>&#160;    <a class="code" href="hsm__state_8h.html#structhsm__state__rec" title="a state descriptor http://dev.ionous.net/2012/06/state-descriptors.html">hsm_state</a> state= <a class="code" href="hsm__builder_8c.html#aee89776d61b3c812c2e1da067e3124da" title="Return a core hsm_state from an id.">hsmResolveId</a>( <span class="keywordtype">id</span> );</div>
<div class="line"><a name="l00652"></a><span class="lineno">  652</span>&#160;    <span class="comment">// state already has been built</span></div>
<div class="line"><a name="l00653"></a><span class="lineno">  653</span>&#160;    <span class="keywordflow">if</span> (state) {</div>
<div class="line"><a name="l00654"></a><span class="lineno">  654</span>&#160;      <span class="keywordflow">if</span> (pid) *pid=id;</div>
<div class="line"><a name="l00655"></a><span class="lineno">  655</span>&#160;      err=0;</div>
<div class="line"><a name="l00656"></a><span class="lineno">  656</span>&#160;    }</div>
<div class="line"><a name="l00657"></a><span class="lineno">  657</span>&#160;    <span class="keywordflow">else</span> </div>
<div class="line"><a name="l00658"></a><span class="lineno">  658</span>&#160;    <span class="keywordflow">if</span> (<a class="code" href="hsm__builder_8c.html#a6fcf2030bd45065a782c496502ab7ac4" title="Define a named state.">hsmBegin</a>( name, namelen )) {</div>
<div class="line"><a name="l00659"></a><span class="lineno">  659</span>&#160;      <span class="keyword">const</span> nstring_t nstring= { name, namelen };</div>
<div class="line"><a name="l00660"></a><span class="lineno">  660</span>&#160;      <span class="keyword">const</span> <span class="keywordtype">int</span> check= lua_gettop(L);</div>
<div class="line"><a name="l00661"></a><span class="lineno">  661</span>&#160;      err= _HulaBuildState( L, idx, nstring );</div>
<div class="line"><a name="l00662"></a><span class="lineno">  662</span>&#160;      <a class="code" href="hsm__types_8h.html#ae90abec415767fe632682dddda6e1567" title="maps to an assert in debug builds compiles out in non-debug builds">HSM_ASSERT</a>( check == lua_gettop(L) );</div>
<div class="line"><a name="l00663"></a><span class="lineno">  663</span>&#160;      <span class="keywordflow">if</span> (!err) {</div>
<div class="line"><a name="l00664"></a><span class="lineno">  664</span>&#160;        <span class="keywordflow">if</span> (pid) *pid=id;</div>
<div class="line"><a name="l00665"></a><span class="lineno">  665</span>&#160;      }</div>
<div class="line"><a name="l00666"></a><span class="lineno">  666</span>&#160;      <a class="code" href="hsm__builder_8c.html#a1b3b9447cfcb13c231a4814341987e0c" title="Complete the declaration of a state started by hsmBegin().">hsmEnd</a>();</div>
<div class="line"><a name="l00667"></a><span class="lineno">  667</span>&#160;    }        </div>
<div class="line"><a name="l00668"></a><span class="lineno">  668</span>&#160;  }</div>
<div class="line"><a name="l00669"></a><span class="lineno">  669</span>&#160;  <span class="keywordflow">return</span> err;</div>
<div class="line"><a name="l00670"></a><span class="lineno">  670</span>&#160;}</div>
</div><!-- fragment --></div><!-- contents -->
</div><!-- doc-content -->
<!-- start footer part -->
<div id="nav-path" class="navpath"><!-- id is needed for treeview function! -->
  <ul>
    <li class="navelem"><a class="el" href="dir_6c36b64852547327283732128225c9d7.html">hsm</a></li><li class="navelem"><a class="el" href="dir_9659424d7ed6dfd520a332e018c4f96c.html">hula</a></li><li class="navelem"><a class="el" href="hula_8c.html">hula.c</a></li>
    <li class="footer">Generated on Sat Jul 7 2012 22:48:11 for hsm-statechart by
    <a href="http://www.doxygen.org/index.html">
    <img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.8.1.1 </li>
  </ul>
</div>
</body>
</html>
